home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / fern-plant.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  780 b   |  28 lines

  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. #
  3. 20                                      # recursion
  4. 20                                      # angle
  5. 15                                      # thickness
  6. #
  7. #---------------------------------------- axioms
  8. #
  9. #c(12)&(60)C                            # use this as axiom to test a leave
  10. #c(12)b                                 # use this as axiom to test a branch
  11. c(12)b>(60)b>(60)b>(60)b>(60)b>(60)b    # the whole thing
  12. #
  13. # ---------------------------------------- rules
  14. #
  15. b=[&(30)A]
  16. #
  17. A=~(7)$t(.1)F[+(40)C][-(40)C]!(.95)~(7)t(.1)FA
  18. #
  19. C=~(10)$tF[+(60)L][-(60)L]C
  20. #
  21. L=[~(15)c(4){-f+f+f-|-f+f}]
  22. #
  23. F='(1.3)F'(.77)
  24. f='(1.3)f'(.77)
  25. #
  26. #~=_                                    # uncomment to remove random efx
  27. @
  28.